home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / trasys.vim < prev    next >
Encoding:
Text File  |  2001-07-28  |  5.5 KB  |  178 lines
  1. " Vim syntax file
  2. " Language:     TRASYS input file
  3. " Maintainer:   Adrian Nagle, anagle@ball.com
  4. " Last Change:  2001 Jul 28
  5. " Filenames:    *.inp
  6. " URL:          http://www.naglenet.org/vim/syntax/trasys.vim
  7. " MAIN URL:     http://www.naglenet.org/vim/
  8.  
  9.  
  10.  
  11. " For version 5.x: Clear all syntax items
  12. " For version 6.x: Quit when a syntax file was already loaded
  13. if version < 600
  14.   syntax clear
  15. elseif exists("b:current_syntax")
  16.   finish
  17. endif
  18.  
  19.  
  20. " Force free-form fortran format
  21. let fortran_free_source=1
  22.  
  23. " Load FORTRAN syntax file
  24. if version < 600
  25.   source <sfile>:p:h/fortran.vim
  26. else
  27.   runtime! syntax/fortran.vim
  28. endif
  29. unlet b:current_syntax
  30.  
  31.  
  32. " Ignore case
  33. syn case ignore
  34.  
  35.  
  36.  
  37. " Define keywords for TRASYS
  38. syn keyword trasysOptions    model rsrec info maxfl nogo dmpdoc
  39. syn keyword trasysOptions    rsi rti rso rto bcdou cmerg emerg
  40. syn keyword trasysOptions    user1 nnmin erplot
  41.  
  42. syn keyword trasysSurface    icsn tx ty tz rotx roty rotz inc bcsn
  43. syn keyword trasysSurface    nnx nny nnz nnax nnr nnth unnx
  44. syn keyword trasysSurface    unny unnz unnax unnr unnth type idupsf
  45. syn keyword trasysSurface    imagsf act active com shade bshade axmin
  46. syn keyword trasysSurface    axmax zmin zmax rmin rmax thmin thmin
  47. syn keyword trasysSurface    thmax alpha emiss trani trans spri sprs
  48. syn keyword trasysSurface    refno posit com dupbcs dimensions
  49. syn keyword trasysSurface    dimension position prop surfn
  50.  
  51. syn keyword trasysSurfaceType rect trap disk cyl cone sphere parab
  52. syn keyword trasysSurfaceType box5 box6 shpero tor ogiv elem tape poly
  53.  
  54. syn keyword trasysSurfaceArgs ff di top bottom in out both no only
  55.  
  56. syn keyword trasysArgs       fig smn nodea zero only ir sol
  57. syn keyword trasysArgs       both wband stepn initl
  58.  
  59. syn keyword trasysOperations orbgen build
  60.  
  61. "syn keyword trasysSubRoutine call
  62. syn keyword trasysSubRoutine chgblk ndata ndatas odata odatas
  63. syn keyword trasysSubRoutine pldta ffdata cmdata adsurf rbdata
  64. syn keyword trasysSubRoutine rtdata pffshd orbit1 orbit2 orient
  65. syn keyword trasysSubRoutine didt1 didt1s didt2 didt2s spin
  66. syn keyword trasysSubRoutine spinav dicomp distab drdata gbdata
  67. syn keyword trasysSubRoutine gbaprx rkdata rcdata aqdata stfaq
  68. syn keyword trasysSubRoutine qodata qoinit modar modpr modtr
  69. syn keyword trasysSubRoutine modprs modshd moddat rstoff rston
  70. syn keyword trasysSubRoutine rsmerg ffread diread ffusr1 diusr1
  71. syn keyword trasysSubRoutine surfp didt3 didt3s romain stfrc
  72. syn keyword trasysSubRoutine rornt rocstr romove flxdata title
  73.  
  74. syn keyword trassyPrcsrSegm  nplot oplot plot cmcal ffcal rbcal
  75. syn keyword trassyPrcsrSegm  rtcal dical drcal sfcal gbcal rccal
  76. syn keyword trassyPrcsrSegm  rkcal aqcal qocal
  77.  
  78.  
  79.  
  80. " Define matches for TRASYS
  81. syn match  trasysOptions     "list source"
  82. syn match  trasysOptions     "save source"
  83. syn match  trasysOptions     "no print"
  84.  
  85. "syn match  trasysSurface     "^K *.* [^$]"
  86. "syn match  trasysSurface     "^D *[0-9]*\.[0-9]\+"
  87. "syn match  trasysSurface     "^I *.*[0-9]\+\.\="
  88. "syn match  trasysSurface     "^N *[0-9]\+"
  89. "syn match  trasysSurface     "^M *[a-z[A-Z0-9]\+"
  90. "syn match  trasysSurface     "^B[C][S] *[a-zA-Z0-9]*"
  91. "syn match  trasysSurface     "^S *SURFN.*[0-9]"
  92. syn match  trasysSurface     "P[0-9]* *="he=e-1
  93.  
  94. syn match  trasysIdentifier  "^L "he=e-1
  95. syn match  trasysIdentifier  "^K "he=e-1
  96. syn match  trasysIdentifier  "^D "he=e-1
  97. syn match  trasysIdentifier  "^I "he=e-1
  98. syn match  trasysIdentifier  "^N "he=e-1
  99. syn match  trasysIdentifier  "^M "he=e-1
  100. syn match  trasysIdentifier  "^B[C][S]"
  101. syn match  trasysIdentifier  "^S "he=e-1
  102.  
  103. syn match  trasysComment     "^C.*$"
  104. syn match  trasysComment     "^R.*$"
  105. syn match  trasysComment     "\$.*$"
  106.  
  107. syn match  trasysHeader      "^header[^,]*"
  108.  
  109. syn match  trasysMacro       "^FAC"
  110.  
  111. syn match  trasysInteger     "-\=\<[0-9]*\>"
  112. syn match  trasysFloat       "-\=\<[0-9]*\.[0-9]*"
  113. syn match  trasysScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
  114.  
  115. syn match  trasysBlank       "' \+'"hs=s+1,he=e-1
  116.  
  117. syn match  trasysEndData     "^END OF DATA"
  118.  
  119. if exists("thermal_todo")
  120.   execute 'syn match  trasysTodo ' . '"^'.thermal_todo.'.*$"'
  121. else
  122.   syn match  trasysTodo  "^?.*$"
  123. endif
  124.  
  125.  
  126.  
  127. " Define regions for TRASYS
  128. syn region trasysComment  matchgroup=trasysHeader start="^HEADER DOCUMENTATION DATA" end="^HEADER[^,]*"
  129.  
  130.  
  131.  
  132. " Define synchronizing patterns for TRASYS
  133. syn sync maxlines=500
  134. syn sync match trasysSync grouphere trasysComment "^HEADER DOCUMENTATION DATA"
  135.  
  136.  
  137.  
  138. " Define the default highlighting
  139. " For version 5.7 and earlier: only when not done already
  140. " For version 5.8 and later: only when an item doesn't have highlighting yet
  141. if version >= 508 || !exists("did_trasys_syntax_inits")
  142.   if version < 508
  143.     let did_trasys_syntax_inits = 1
  144.     command -nargs=+ HiLink hi link <args>
  145.   else
  146.     command -nargs=+ HiLink hi def link <args>
  147.   endif
  148.  
  149.   HiLink trasysOptions          Special
  150.   HiLink trasysSurface          Special
  151.   HiLink trasysSurfaceType      Constant
  152.   HiLink trasysSurfaceArgs      Constant
  153.   HiLink trasysArgs             Constant
  154.   HiLink trasysOperations       Statement
  155.   HiLink trasysSubRoutine       Statement
  156.   HiLink trassyPrcsrSegm        PreProc
  157.   HiLink trasysIdentifier       Identifier
  158.   HiLink trasysComment          Comment
  159.   HiLink trasysHeader           Typedef
  160.   HiLink trasysMacro            Macro
  161.   HiLink trasysInteger          Number
  162.   HiLink trasysFloat            Float
  163.   HiLink trasysScientific       Float
  164.  
  165.   HiLink trasysBlank            SpecialChar
  166.  
  167.   HiLink trasysEndData          Macro
  168.  
  169.   HiLink trasysTodo             Todo
  170.  
  171.   delcommand HiLink
  172. endif
  173.  
  174.  
  175. let b:current_syntax = "trasys"
  176.  
  177. " vim: ts=8 sw=2
  178.